home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / ToolUtils.a < prev    next >
Encoding:
Text File  |  1998-02-12  |  4.0 KB  |  171 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        ToolUtils.a
  3. ;
  4. ;    Contains:    Toolbox Utilities Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Release:    Universal Interfaces 3.1
  8. ;
  9. ;    Copyright:    © 1990-1998 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__TOOLUTILS__') = 'UNDEFINED' THEN
  19. __TOOLUTILS__ SET 1
  20.  
  21.     IF &TYPE('__MACTYPES__') = 'UNDEFINED' THEN
  22.     include 'MacTypes.a'
  23.     ENDIF
  24.     IF &TYPE('__OSUTILS__') = 'UNDEFINED' THEN
  25.     include 'OSUtils.a'
  26.     ENDIF
  27.  
  28.     IF OLDROUTINELOCATIONS THEN
  29.     IF &TYPE('__FIXMATH__') = 'UNDEFINED' THEN
  30.     include 'FixMath.a'
  31.     ENDIF
  32.     IF &TYPE('__ICONS__') = 'UNDEFINED' THEN
  33.     include 'Icons.a'
  34.     ENDIF
  35.     IF &TYPE('__QUICKDRAW__') = 'UNDEFINED' THEN
  36.     include 'Quickdraw.a'
  37.     ENDIF
  38.     IF &TYPE('__TEXTUTILS__') = 'UNDEFINED' THEN
  39.     include 'TextUtils.a'
  40.     ENDIF
  41.     ENDIF    ; OLDROUTINELOCATIONS
  42.  
  43. ; 
  44. ;————————————————————————————————————————————————————————————————————————————————————
  45. ;    Note: 
  46. ;    
  47. ;    The following routines that used to be in this header file, have moved to
  48. ;    more appropriate headers.  If OLDROUTINELOCATIONS is 0, then you will have
  49. ;    to include the headers below to use the following functions.
  50. ;    
  51. ;        FixMath.h:        FixMul
  52. ;                        FixRatio
  53. ;                        FixRound
  54. ;        
  55. ;        Icons.h:          GetIcon
  56. ;                        PlotIcon
  57. ;                        
  58. ;        Quickdraw.h:    AngleFromSlope
  59. ;                        DeltaPoint
  60. ;                        GetCursor
  61. ;                        GetIndPattern
  62. ;                        GetPattern
  63. ;                        GetPicture
  64. ;                        PackBits
  65. ;                        ScreenRes
  66. ;                        ShieldCursor
  67. ;                        SlopeFromAngle
  68. ;                        UnpackBits
  69. ;                        
  70. ;        TextUtils.h:    Munger
  71. ;                        GetIndString
  72. ;                        GetString
  73. ;                        NewString
  74. ;                        SetString
  75. ;————————————————————————————————————————————————————————————————————————————————————
  76. ;
  77.  
  78.  
  79.  
  80. ;
  81. ; pascal Boolean BitTst(const void *bytePtr, long bitNum)
  82. ;
  83.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  84.         _BitTst:    OPWORD    $A85D
  85.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  86.         IMPORT_CFM_FUNCTION BitTst
  87.     ENDIF
  88.  
  89. ;
  90. ; pascal void BitSet(void *bytePtr, long bitNum)
  91. ;
  92.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  93.         _BitSet:    OPWORD    $A85E
  94.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  95.         IMPORT_CFM_FUNCTION BitSet
  96.     ENDIF
  97.  
  98. ;
  99. ; pascal void BitClr(void *bytePtr, long bitNum)
  100. ;
  101.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  102.         _BitClr:    OPWORD    $A85F
  103.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  104.         IMPORT_CFM_FUNCTION BitClr
  105.     ENDIF
  106.  
  107. ;
  108. ; pascal long BitAnd(long value1, long value2)
  109. ;
  110.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  111.         _BitAnd:    OPWORD    $A858
  112.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  113.         IMPORT_CFM_FUNCTION BitAnd
  114.     ENDIF
  115.  
  116. ;
  117. ; pascal long BitOr(long value1, long value2)
  118. ;
  119.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  120.         _BitOr:    OPWORD    $A85B
  121.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  122.         IMPORT_CFM_FUNCTION BitOr
  123.     ENDIF
  124.  
  125. ;
  126. ; pascal long BitXor(long value1, long value2)
  127. ;
  128.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  129.         _BitXor:    OPWORD    $A859
  130.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  131.         IMPORT_CFM_FUNCTION BitXor
  132.     ENDIF
  133.  
  134. ;
  135. ; pascal long BitNot(long value)
  136. ;
  137.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  138.         _BitNot:    OPWORD    $A85A
  139.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  140.         IMPORT_CFM_FUNCTION BitNot
  141.     ENDIF
  142.  
  143. ;
  144. ; pascal long BitShift(long value, short count)
  145. ;
  146.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  147.         _BitShift:    OPWORD    $A85C
  148.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  149.         IMPORT_CFM_FUNCTION BitShift
  150.     ENDIF
  151.  
  152.     IF TARGET_CPU_68K THEN
  153. Int64Bit                RECORD 0
  154. hiLong                     ds.l    1                ; offset: $0 (0)
  155. loLong                     ds.l    1                ; offset: $4 (4)
  156. sizeof                     EQU *                    ; size:   $8 (8)
  157.                         ENDR
  158. ;
  159. ; pascal void LongMul(long a, long b, Int64Bit *result)
  160. ;
  161.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  162.         _LongMul:    OPWORD    $A867
  163.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  164.         IMPORT_CFM_FUNCTION LongMul
  165.     ENDIF
  166.  
  167.     ENDIF    ; TARGET_CPU_68K
  168.  
  169.     ENDIF ; __TOOLUTILS__ 
  170.  
  171.